home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / guile-ii.src / guile-ii / guile-src / slib / mularg.scm < prev    next >
Encoding:
Text File  |  1994-12-08  |  297 b   |  11 lines
  1. ;;; "mularg.scm" Redefine - and / to take more than 2 arguments.
  2.  
  3. (let ((maker
  4.        (lambda (op)
  5.      (lambda (d1 . ds)
  6.        (cond ((null? ds) (op d1))
  7.          ((null? (cdr ds)) (op d1 (car ds)))
  8.          (else (for-each (lambda (d) (set! d1 (op d1 d))) ds) d1))))))
  9.   (set! / (maker /))
  10.   (set! - (maker -)))
  11.